home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rollem / rollem13.frm < prev   
Text File  |  1995-05-08  |  2KB  |  76 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    Caption         =   "How did I do"
  4.    ClientHeight    =   1620
  5.    ClientLeft      =   3690
  6.    ClientTop       =   2895
  7.    ClientWidth     =   2460
  8.    ControlBox      =   0   'False
  9.    FontTransparent =   0   'False
  10.    Height          =   2025
  11.    Left            =   3630
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form3"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1620
  17.    ScaleWidth      =   2460
  18.    Top             =   2550
  19.    Width           =   2580
  20.    Begin CommandButton Command1 
  21.       Caption         =   "OK"
  22.       Height          =   375
  23.       Left            =   720
  24.       TabIndex        =   0
  25.       Top             =   1080
  26.       Width           =   975
  27.    End
  28.    Begin TextBox TXT_TextBox 
  29.       Enabled         =   0   'False
  30.       Height          =   285
  31.       Left            =   1080
  32.       TabIndex        =   4
  33.       Top             =   600
  34.       Width           =   1095
  35.    End
  36.    Begin TextBox TXT_TextBox2 
  37.       Enabled         =   0   'False
  38.       Height          =   285
  39.       Left            =   1080
  40.       TabIndex        =   3
  41.       Top             =   240
  42.       Width           =   1095
  43.    End
  44.    Begin Label Label2 
  45.       Caption         =   "Losses : "
  46.       Height          =   255
  47.       Left            =   120
  48.       TabIndex        =   2
  49.       Top             =   600
  50.       Width           =   855
  51.    End
  52.    Begin Label Label1 
  53.       Caption         =   "Wins : "
  54.       Height          =   375
  55.       Left            =   120
  56.       TabIndex        =   1
  57.       Top             =   240
  58.       Width           =   735
  59.    End
  60. End
  61.  
  62.  
  63. Sub Command1_Click ()
  64. Unload form3
  65. End Sub
  66.  
  67. Sub Picture1_Click ()
  68. Print Str$(Wnr%)
  69.  
  70. End Sub
  71.  
  72. Sub Picture2_Click ()
  73. Print Str$(Loss%)
  74. End Sub
  75.  
  76.